home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
addr.lst
< prev
next >
Wrap
File List
|
1991-01-29
|
820b
|
21 lines
ADDR
80000: 02D9D ! Program
80005: 1592D ; Set last RPL token to <0h> and verify DEPTH >= 1
8000A: [...] ! # 00000h
80019: 06657 ; Internal NEWOB
8001E: 02DCC ! Code
80023: 00028 ! 40 nibbles (next RPL at 8004B)
80028: 8FB9760 GOSBVL 0679B ; MC: save D0,D1,B,D (uses C,D0), clear carry
8002F: 174 D1=D1+ 5
80032: 143 A=DAT1 A
80035: 1C4 D1=D1- 5
80038: 147 C=DAT1 A
8003B: 137 CD1EX
8003E: 179 D1=D1+ 10
80041: 141 DAT1=A A
80044: 8D34150 GOVLNG 05143 ; MC: restore D,B,D1,D0 (C=D0), clear carry and continue RPL
. . . . . . ! End of Code
8004B: 60F9B ; drop level two object
80050: 0312B ! End Marker